home *** CD-ROM | disk | FTP | other *** search
- object fmToolbar: TfmToolbar
- Left = 228
- Top = 117
- Width = 520
- Height = 355
- Caption = 'Navigator Toolbar'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsMDIForm
- Menu = MainMenu1
- Position = poScreenCenter
- ShowHint = True
- Visible = True
- WindowMenu = Window1
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 512
- Height = 33
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object DBNavigator1: TDBNavigator
- Left = 1
- Top = 4
- Width = 240
- Height = 20
- DataSource = DM1.CustomerSource
- TabOrder = 0
- OnClick = DBNavigator1Click
- end
- end
- object MainMenu1: TMainMenu
- Left = 109
- Top = 1
- object File1: TMenuItem
- Caption = '&File'
- ShortCut = 0
- object Close1: TMenuItem
- Caption = '&Close'
- ShortCut = 0
- OnClick = Close1Click
- end
- end
- object Record1: TMenuItem
- Caption = '&Record'
- ShortCut = 0
- object First1: TMenuItem
- Caption = '&First'
- ShortCut = 16420
- OnClick = First1Click
- end
- object Next1: TMenuItem
- Caption = '&Next'
- ShortCut = 34
- OnClick = Next1Click
- end
- object Prior1: TMenuItem
- Caption = '&Prior'
- ShortCut = 33
- OnClick = Prior1Click
- end
- object Last1: TMenuItem
- Caption = '&Last'
- ShortCut = 16419
- OnClick = Last1Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Delete1: TMenuItem
- Caption = '&Delete'
- ShortCut = 16430
- OnClick = Delete1Click
- end
- object Insert1: TMenuItem
- Caption = '&Insert'
- ShortCut = 45
- OnClick = Insert1Click
- end
- object Cancel1: TMenuItem
- Caption = '&Cancel'
- ShortCut = 27
- OnClick = Cancel1Click
- end
- end
- object Window1: TMenuItem
- Caption = '&Window'
- ShortCut = 0
- object Tile1: TMenuItem
- Caption = '&Tile'
- ShortCut = 0
- OnClick = Tile1Click
- end
- object Cascade1: TMenuItem
- Caption = '&Cascade'
- ShortCut = 0
- OnClick = Cascade1Click
- end
- end
- object About1: TMenuItem
- Caption = '&Help'
- ShortCut = 0
- object About2: TMenuItem
- Caption = '&About'
- ShortCut = 0
- OnClick = About1Click
- end
- object Messages1: TMenuItem
- Caption = '&Messages'
- Hint = 'Display dialog when focus changes.'
- ShortCut = 0
- OnClick = Messages1Click
- end
- end
- end
- end
-